home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / RESISVAL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1996-09-28  |  1.4 KB  |  49 lines
  1. 10  'RESISVAL - Standard Resistor Values - 26 OCT 95 rev. 28 SEP 96
  2. 20  COLOR 0,2,2:CLS
  3. 30  CLS:COLOR 7,0:KEY OFF
  4. 40  IF EX$=""THEN EX$="EXIT"
  5. 50  DIM R(24)
  6. 60  DATA 10,11,12,13,15,16,18,20,22,24,27,30,33,36,39,43,47,51,56,62,68,75,82,91
  7. 70  FOR Z=1 TO 24:READ R(Z):NEXT Z
  8. 80  X$="  5%&10%  5% only "
  9. 90  COLOR ,2:PRINT SPC(4);:COLOR 14,6
  10. 100  FOR X=1 TO 4:PRINT X$;:NEXT X:PRINT ""
  11. 110  M=0.1:U$="###.#":Z$=" -  ":GOSUB 240
  12. 120  M= 1:U$="#####":Z$=" -  ":GOSUB 240
  13. 130  M=10:U$="#####":Z$=" -  ":GOSUB 240
  14. 140  M=0.1:U$="###.#":Z$=" K  ":GOSUB 240
  15. 150  M= 1:U$="#####":Z$=" K  ":GOSUB 240
  16. 160  M=10:U$="#####":Z$=" K  ":GOSUB 240
  17. 170  M=0.1:U$="###.#":Z$=" meg":GOSUB 240
  18. 180  M= 1:U$="#####":Z$=" meg":GOSUB 240
  19. 190  COLOR 15,2
  20. 200  PRINT TAB(18);"S T A N D A R D   R E S I S T O R   V A L U E S";
  21. 210  GOSUB 350
  22. 220  CLS:RUN EX$
  23. 230  '
  24. 240  '.....print
  25. 250  FOR Z= 1 TO 24
  26. 260  IF Z=1 OR Z=9 OR Z=17 THEN COLOR 2:PRINT "CSRLINCSRLINCSRLINCSRLIN";
  27. 270  IF Z/2=INT(Z/2)THEN COLOR 0,7 ELSE COLOR 15,1
  28. 280  PRINT USING U$;M*R(Z);:PRINT Z$;
  29. 290  IF Z=8 OR Z=16 THEN PRINT ""
  30. 300  IF Z$=" meg"AND M*R(Z)=22 THEN COLOR 7,0:GOTO 330
  31. 310  NEXT Z
  32. 320  PRINT ""
  33. 330  RETURN
  34. 340  '
  35. 350  '.....HARDCOPY - revised from SCREEN DUMP 08 APR 95 - 27 SEP 96
  36. 360  VIEW PRINT:GOSUB 480:LOCATE 25,2:COLOR 14,6
  37. 370  PRINT " Press 1 to print screen, 2 to print screen & ";
  38. 380  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  39. 390  Z$=INKEY$:IF Z$="3"THEN GOSUB 480:GOTO 470
  40. 400  IF Z$="1"OR Z$="2"THEN GOSUB 480:GOTO 420
  41. 410  GOTO 390
  42. 420   FOR QX=1 TO 24:FOR QY=1 TO 80       '24 lines x 80 characters
  43. 430    LPRINT CHR$(SCREEN(QX,QY));        'print ASCII character
  44. 440   NEXT QY:NEXT QX
  45. 450  IF Z$="2"THEN LPRINT CHR$(12)        'form feed
  46. 460  GOTO 360
  47. 470  RETURN
  48. 480  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  49.